home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d13
/
pdx_wp.arc
/
PDX2WP.SC
< prev
next >
Wrap
Text File
|
1990-11-14
|
861b
|
34 lines
if nimages() > 0 then
showmenu
"Table" : "Create a WordPerfect table from a Paradox table",
"Columns": "Create WordPerfect parallel columns from Paradox table",
"Merge" : "Create WordPerfect secondary merge file from Paradox table",
"Quit" : "Cancel PDX2WP translation utility"
to choice
switch
case choice = "Table":
run big "pdx2wp " + table() + ".tbl " + table() + " /t"
case choice = "Columns":
run big "pdx2wp " + table() + ".col " + table() + " /c"
case choice = "Merge":
run big "pdx2wp " + table() + ".mrg " + table() + " /m"
case choice = "Quit":
case choice = "Esc":
release vars choice
return
endswitch
else
message "Cannot run PDX2WP -- no table has been selected"
sleep 3000
endif